﻿Public Class SpiritListByTag
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    Protected Function showStar(ByVal star As Integer)      'Get the number of star from the databse, and define it as interger
        Dim retval As String                'Define 'retval' as string, inorder to store '*'
        retval = ""
        For i = 1 To star
            retval = retval + "*"           'Use a loop to show the *. If the 'star' of a spirit is 2, then this statement will run twice.
        Next
        Return retval
    End Function

End Class